
use "./LoyaltyAccountability_FINAL.dta"


set scheme  plotplain


****************************************************************************



***** MAIN ANALYSIS (analysis in main paper) *****



*** Figure 1 - Identity of Perpetrator ***


regress war2_f i.vignettesplit_new if samp_main==1&survey==1

estimates store UK

regress war2_f i.vignettesplit_new if samp_main==1&survey==2

estimates store US

coefplot (UK, offset(0.05)) (US, offset(-0.05)), nolabel drop(_cons) xline(0) xlabel(-0.4(0.1)0.2) xscale(range(-0.3(0.1)0.3)) title (Perpetrator Identity (UK and US)) xtitle (ATE) coeflabels(3.vignettesplit_new = "co-national")




*** Figure 2 - Type of Violation ***

** Generate variables to indicate which survey and treatment groups to include in the regression

gen tv1=0
replace tv1=1 if survey==2&vignettesplit_new==3
replace tv1=1 if survey==2&vignettesplit_new==7

gen tv2=0
replace tv2=1 if survey==3&vignettesplit_new==1
replace tv2=1 if survey==3&vignettesplit_new>7

** Run regression analysis

regress war2_f i.vignettesplit_new if tv1==1

estimates store US1

regress war2_f i.vignettesplit_new if tv2==1

estimates store US2


coefplot (US1, offset(0.05)) (US2, offset(-0.05)), nolabel drop(_cons) xline(0) title (Type of Violation) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")




*** Figure 3 - Leader Statements ***

** Generate variables to indicate which survey and treatment groups to include in the regression

gen lsuk=0
replace lsuk=1 if survey==1&samp2==1
replace lsuk=0 if survey==1&vignettesplit_new>5

gen lsus=0
replace lsus=1 if survey==2&samp2==1
replace lsus=0 if survey==2&vignettesplit_new>5


** Run regression

regress war2_f i.vignettesplit_new if lsuk==1

estimates store UK

regress war2_f i.vignettesplit_new if lsus==1

estimates store US

coefplot (UK, offset(0.05)) (US, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (UK and US)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")



*** Figure 4 - Leader Statements (Trump vs Biden) ***


** Generate varaible to indicate which survey and treatment groups to include in the regression

gen lsus2=0
replace lsus2=1 if survey==3&vignettesplit_new==1
replace lsus2=1 if survey==3&vignettesplit_new==4
replace lsus2=1 if survey==3&vignettesplit_new==5


** Run regression

regress war2_f i.vignettesplit_new if lsus==1

estimates store Trump

regress war2_f i.vignettesplit_new if lsus2==1

estimates store Biden

coefplot (Trump, offset(0.05)) (Biden, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Trump and Biden Presidencies)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute_new")




*******************************************************************************



***** SUPPLEMENTARY ANALYSIS (analysis in supplementary material) *****



****** Balance Tables for Three Survey Experiments (APPENDIX C) ******


tabulate vignettesplit_new, generate(v)


** UK Balance Test (Table 1) **


logit v1 age gender region_gor education war1_new pastvote_euref vote2019r if survey==1
eststo

logit v2 age gender region_gor education war1_new pastvote_euref vote2019r if survey==1
eststo

logit v3 age gender region_gor education war1_new pastvote_euref vote2019r if survey==1
eststo

logit v4 age gender region_gor education war1_new pastvote_euref vote2019r if survey==1
eststo

logit v5 age gender region_gor education war1_new pastvote_euref vote2019r if survey==1
eststo

logit v6 age gender region_gor education war1_new pastvote_euref vote2019r if survey==1
eststo

*esttab using "/tab1.csv"



** US Survey 1 Balance Test (Table 2) **


logit v1 age gender region education ideo5 presvote16postx war1_new if survey==2
eststo

logit v2 age gender region education ideo5 presvote16postx war1_new if survey==2
eststo

logit v3 age gender region education ideo5 presvote16postx war1_new if survey==2
eststo

logit v4 age gender region education ideo5 presvote16postx war1_new if survey==2
eststo

logit v5 age gender region education ideo5 presvote16postx war1_new if survey==2
eststo

logit v7 age gender region education ideo5 presvote16postx war1_new if survey==2
eststo

*esttab using "./tab2.csv"



** US Survey 2 Balance Test (Table 3) **

logit v1 age gender region education ideo5 presvote20post war1_new if survey==3
eststo

logit v4 age gender region education ideo5 presvote20post war1_new if survey==3
eststo

logit v5 age gender region education ideo5 presvote20post war1_new if survey==3
eststo

logit v8 age gender region education ideo5 presvote20post war1_new if survey==3
eststo

logit v9 age gender region education ideo5 presvote20post war1_new if survey==3
eststo

*esttab using "./tab3.csv"




***** Descriptive Statistics (APPENDIX D) *****



** Survey Samples **

** gender (Figure 1) **
gen male=0
replace male=1 if gender==1
gen survey2="UK"
replace survey2="US1" if survey==2
replace survey2="US2" if survey==3

graph bar (mean) male, over(survey2) title(Gender Distribution (all surveys)) ylabel(0 .1 "10" .2 "20" .3 "30" .4 "40" .5 "50" .6 "60" ) ytitle(Percentage of Male Respondents) 


** age (Figures 2-4) **
recode age 18/24=1 25/34=2 35/44=3 45/54=4 55/64=5 65/93=6, generate (agegrp6)
label define agegroup 1 "18-24" 2 "25-34" 3 "35-44" 4 "45-54" 5 "55-64" 6 "65+"
label values agegrp6 agegroup

graph bar if survey==1, over(agegrp6)  title(Age Distribution (UK)) ytitle(Percentage of Respondents) 

graph bar if survey==2, over(agegrp6)  title(Age Distribution (US1)) ytitle(Percentage of Respondents) 

graph bar if survey==3, over(agegrp6)  title(Age Distribution (US2)) ytitle(Percentage of Respondents) 


** education (Figure 5) ***

graph bar (mean) education, over(survey2) title(Education Distribution (all surveys)) ylabel(0 .1 "10" .2 "20" .3 "30" .4 "40" ) ytitle(Percentage of Respondents with Degree) 



** nationalism (Figures 6-8) **
label define nationalgroup 1 "very strongly" 2 "fairly strongly" 3 "not very strongly" 4 "not at all"
label values war1_new nationalgroup

graph bar if survey==1, over(war1_new)  title(Nationalism Distribution (UK)) ytitle(Percentage of Respondents) 

graph bar if survey==2, over(war1_new)  title(Nationalism Distribution (US1)) ytitle(Percentage of Respondents) 

graph bar if survey==3, over(war1_new)  title(Nationalism Distribution (US2)) ytitle(Percentage of Respondents) 


** voting (Figures 9-11) **

label define ukvote 1 "Conservative" 2 "Labour" 3 "Lib Dem" 4 "Brexit" 5 "Green" 6 "Other" 7 "Didn't vote"
label values vote2019r ukvote

label define usvote2016 1 "Hilary Clinton" 2 "Donald Trump" 3 "Other" 4 "Didn't vote"
label values presvote16postx usvote2016

label define usvote2020 1 "Joe Biden" 2 "Donald Trump" 3 "Jo Jorgensen" 4 "Howie Hawkins" 5 "Other" 6 "Didn't vote"
label values presvote20post usvote2020


graph bar if survey==1, over(vote2019r)  title(Voting Distribution (UK)) ytitle(Percentage of Respondents) 

graph bar if survey==2, over(presvote16postx)  title(Voting Distribution (US1)) ytitle(Percentage of Respondents) 

graph bar if survey==3, over(presvote20post)  title(Voting Distribution (US2)) ytitle(Percentage of Respondents) 



*** brexit vote (Figure 12) ***

gen brexitvote= .
replace brexitvote=1 if pastvote_euref==1
replace brexitvote=2 if pastvote_euref==2
replace brexitvote=3 if pastvote_euref==3

label define brexit 1 "Remain" 2 "Leave" 3 "Didn't vote"
label values brexitvote brexit

graph bar if survey==1, over(brexitvote)  title(EU Referendum Vote Distribution (UK)) ytitle(Percentage of Respondents) 


** ideology (Figures 13-14)***

label define ideology 1 "Very Liberal" 2 "Liberal" 3 "Moderate" 4 "Conservative" 5 "Very Conservative" 6 "Not sure"
label values ideo5 ideology

graph bar if survey==2, over(ideo5)  title(Ideology Distribution (US1)) ytitle(Percentage of Respondents) 

graph bar if survey==3, over(ideo5)  title(Ideology Distribution (US2)) ytitle(Percentage of Respondents) 




*** Input for descriptive results of support for prosecution table (Table 4) ***


sum war2_f if survey==1
sum war2_f if survey==2
sum war2_f if survey==3


sum war2_f if survey==1&vignettesplit_new==1
sum war2_f if survey==2&vignettesplit_new==1

sum war2_f if survey==1&vignettesplit_new==2
sum war2_f if survey==2&vignettesplit_new==2

sum war2_f if survey==1&vignettesplit_new==3
sum war2_f if survey==2&vignettesplit_new==3
sum war2_f if survey==3&vignettesplit_new==1


sum war2_f if survey==1&vignettesplit_new==4
sum war2_f if survey==2&vignettesplit_new==4
sum war2_f if survey==3&vignettesplit_new==4


sum war2_f if survey==1&vignettesplit_new==5
sum war2_f if survey==2&vignettesplit_new==5
sum war2_f if survey==3&vignettesplit_new==5

sum war2_f if survey==1&vignettesplit_new==6

sum war2_f if survey==2&vignettesplit_new==7

sum war2_f if survey==3&vignettesplit_new==8
sum war2_f if survey==3&vignettesplit_new==9


sum war2_f if survey==1&agegrp6==1
sum war2_f if survey==2&agegrp6==1
sum war2_f if survey==3&agegrp6==1

sum war2_f if survey==1&agegrp6==2
sum war2_f if survey==2&agegrp6==2
sum war2_f if survey==3&agegrp6==2

sum war2_f if survey==1&agegrp6==3
sum war2_f if survey==2&agegrp6==3
sum war2_f if survey==3&agegrp6==3

sum war2_f if survey==1&agegrp6==4
sum war2_f if survey==2&agegrp6==4
sum war2_f if survey==3&agegrp6==4

sum war2_f if survey==1&agegrp6==5
sum war2_f if survey==2&agegrp6==5
sum war2_f if survey==3&agegrp6==5

sum war2_f if survey==1&agegrp6==6
sum war2_f if survey==2&agegrp6==6
sum war2_f if survey==3&agegrp6==6

sum war2_f if survey==1&male==1
sum war2_f if survey==1&male==0
sum war2_f if survey==2&male==1
sum war2_f if survey==2&male==0
sum war2_f if survey==3&male==1
sum war2_f if survey==3&male==0

sum war2_f if survey==1&education==1
sum war2_f if survey==1&education==0
sum war2_f if survey==2&education==1
sum war2_f if survey==2&education==0
sum war2_f if survey==3&education==1
sum war2_f if survey==3&education==0


sum war2_f if survey==1&war1_new==1
sum war2_f if survey==2&war1_new==1
sum war2_f if survey==3&war1_new==1

sum war2_f if survey==1&war1_new==2
sum war2_f if survey==2&war1_new==2
sum war2_f if survey==3&war1_new==2

sum war2_f if survey==1&war1_new==3
sum war2_f if survey==2&war1_new==3
sum war2_f if survey==3&war1_new==3

sum war2_f if survey==1&war1_new==4
sum war2_f if survey==2&war1_new==4
sum war2_f if survey==3&war1_new==4


sum war2_f if survey==1&conservative==1
sum war2_f if survey==1&labour==1

sum war2_f if survey==2&trump==1
sum war2_f if survey==2&clinton==1

sum war2_f if survey==3&trump==1
sum war2_f if survey==3&biden==1

sum war2_f if survey==1&remain==1
sum war2_f if survey==1&leave==1

sum war2_f if survey==2&ideo5==1
sum war2_f if survey==3&ideo5==1
sum war2_f if survey==2&ideo5==2
sum war2_f if survey==3&ideo5==2
sum war2_f if survey==2&ideo5==3
sum war2_f if survey==3&ideo5==3
sum war2_f if survey==2&ideo5==4
sum war2_f if survey==3&ideo5==4
sum war2_f if survey==2&ideo5==5
sum war2_f if survey==3&ideo5==5



***** Additional Perpetrator/Victim Identity Effects Analysis (APPENDIX E) *****



** Estonian Perpetrator (Figure 15) **


regress war2_f i.vignettesplit_new if vignettesplit<3&survey==1

estimates store UK

regress war2_f i.vignettesplit_new if vignettesplit<3&survey==2

estimates store US

coefplot (UK, offset(0.05)) (US, offset(-0.05)), nolabel drop(_cons) xline(0) xlabel(-0.3(0.1)0.3) xscale(range(-0.3(0.1)0.3))  title (Perpetrator Identity (UK and US)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian")



** OLS regression results for perpetrator identity **


** UK (Table 5) **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new leave conservative  if vignettesplit_new<4&survey==1
eststo

*esttab using "./tabperpuk.csv"



** US (Table 6) **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2
eststo

regress war2_f i.vignettesplit_new age gender education war1_new conservative trump  if vignettesplit_new<4&survey==2
eststo

*esttab using "./tabperpusa.csv"



** OLS regression results for victim identity (Table 7) ***

gen nir1=0
replace nir1=1 if vignettesplit_new==3&survey==1
replace nir1=1 if vignettesplit_new==6

gen nir2=0
replace nir2=1 if vignettesplit_new==1&survey==1
replace nir2=1 if vignettesplit_new==6

regress war2_f i.vignettesplit_new if nir1==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new leave conservative if nir1==1
eststo

regress war2_f i.vignettesplit_new if nir2==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new leave conservative if nir2==1
eststo

*esttab using "./tabvicnir.csv"



** Heterogenous Effects **


** HE - nationalism (Figure 16) **


** UK **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), nolabel drop(_cons) xline(0) title (Perpetrator Identity (UK)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian" 3.vignettesplit_new = "co-national")


*** US1 ***

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), nolabel drop(_cons) xline(0) title (Perpetrator Identity (US1)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian" 3.vignettesplit_new = "co-national")



** HE - voting behaviour (Figure 17) **


** UK **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1&labour==0

estimates store labour

coefplot (conservative, offset(0.05)) (labour, offset(-0.05)), nolabel drop(_cons) xline(0) title (Perpetrator Identity (UK)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian" 3.vignettesplit_new = "co-national")



** US1 **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2&trump==1

estimates store trump

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2&clinton==0

estimates store clinton

coefplot (trump, offset(0.05)) (clinton, offset(-0.05)), nolabel drop(_cons) xline(0) title (Perpetrator Identity (US1)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian" 3.vignettesplit_new = "co-national")




** HE - Brexit and ideology (Figure 18) **


** UK **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1&leave==1

estimates store leave

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==1&remain==0

estimates store remain

coefplot (leave, offset(0.05)) (remain, offset(-0.05)), nolabel drop(_cons) xline(0) title (Perpetrator Identity (UK)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian" 3.vignettesplit_new = "co-national")



** US1 **

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if vignettesplit_new<4&survey==2&liberal==0

estimates store liberal

coefplot (conservative, offset(0.05)) (liberal, offset(-0.05)), nolabel drop(_cons) xline(0) title (Perpetrator Identity (US1)) xtitle (ATE) coeflabels(2.vignettesplit_new = "Estonian" 3.vignettesplit_new = "co-national")






***** Additional Type of Violation/Perpetrator Motivation Analysis (APPENDIX F) *****



*** OLS regression results for type of violation (Table 8) ***


regress war2_f i.vignettesplit_new if tv1==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new conservative trump if tv1==1
eststo

regress war2_f i.vignettesplit_new if tv2==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new conservative trump if tv2==1
eststo

*esttab using "./tabviolationtype.csv"



** Heterogenous Effects **


** US1 (first US survey - sexual abuse treatment group) **


** HE - nationalism (Figure 19) **

regress war2_f i.vignettesplit_new if tv1==1&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if tv1==1&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), xlabel(-0.2(0.2)1.0) xscale(range(-0.2(0.2)1.0)) drop(_cons) xline(0) title (Type of Violation (US1)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")


** HE - voting behavior (Figure 20) **

regress war2_f i.vignettesplit_new if tv1==1&trump==1

estimates store trump

regress war2_f i.vignettesplit_new if tv1==1&clinton==0

estimates store clinton

coefplot (trump, offset(0.05)) (clinton, offset(-0.05)), xlabel(-0.2(0.2)1.0) xscale(range(-0.2(0.2)1.0)) drop(_cons) xline(0) title (Type of Violation (US1)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")


** HE - ideology (Figure 21) **

regress war2_f i.vignettesplit_new if tv1==1&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if tv1==1&liberal==1

estimates store liberal

coefplot (conservative, offset(0.05)) (liberal, offset(-0.05)), xlabel(-0.2(0.2)1.0) xscale(range(-0.2(0.2)1.0)) drop(_cons) xline(0) title (Type of Violation (US1)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")


** HE - gender (Figure 22) **

regress war2_f i.vignettesplit_new if tv1==1&gender==1

estimates store male

regress war2_f i.vignettesplit_new if tv1==1&gender==2

estimates store female

coefplot (male, offset(0.05)) (female, offset(-0.05)), xlabel(-0.2(0.2)1.0) xscale(range(-0.2(0.2)1.0)) drop(_cons) xline(0) title (Type of Violation (US1)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")




** US2 (second US survey - extortion and female civilian treatment groups) **


** HE - nationalism (Figure 23) **

regress war2_f i.vignettesplit_new if tv2==1&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if tv2==1&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), nolabel drop(_cons) xline(0) title (Type of Violation (US2)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")


** HE - voting behavior (Figure 24) **

regress war2_f i.vignettesplit_new if tv2==1&trump==1

estimates store trump

regress war2_f i.vignettesplit_new if tv2==1&biden==1

estimates store biden

coefplot (trump, offset(0.05)) (biden, offset(-0.05)), nolabel drop(_cons) xline(0) title (Type of Violation (US2)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")


** HE - ideology (Figure 25) **

regress war2_f i.vignettesplit_new if tv2==1&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if tv2==1&liberal==1

estimates store liberal

coefplot (conservative, offset(0.05)) (liberal, offset(-0.05)), nolabel drop(_cons) xline(0) title (Type of Violation (US2)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")


** HE - gender (Figure 26) **

regress war2_f i.vignettesplit_new if tv2==1&gender==1

estimates store male

regress war2_f i.vignettesplit_new if tv2==1&gender==2

estimates store female

coefplot (male, offset(0.05)) (female, offset(-0.05)), nolabel drop(_cons) xline(0) title (Type of Violation (US2)) xtitle (ATE) coeflabels(7.vignettesplit_new = "sexual abuse" 8.vignettesplit_new = "extortion" 9.vignettesplit_new = "female civilian")





***** Additional Leader Statements Analysis (APPENDIX G) *****


*** OLS regression results for leader statements ***


** UK results (Table 9) **

regress war2_f i.vignettesplit_new if lsuk==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new leave conservative if lsuk==1
eststo

*esttab using "./tableaderuk.csv"



** US1 and US2 results (Table 10) **

regress war2_f i.vignettesplit_new if lsus==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new conservative trump if lsus==1
eststo

regress war2_f i.vignettesplit_new if lsus2==1
eststo

regress war2_f i.vignettesplit_new age gender education war1_new conservative trump if lsus2==1
eststo

*esttab using "./tableaderusa.csv"




** Heterogenous Effects **


*** HE - UK nationalism (Figure 27) ***

regress war2_f i.vignettesplit_new if lsuk==1&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if lsuk==1&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (UK)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")



*** HE - UK voting behaviour (Figure 28) ***


regress war2_f i.vignettesplit_new if lsuk==1&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if lsuk==1&labour==0

estimates store labour

coefplot (conservative, offset(0.05)) (labour, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (UK)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")



*** HE - UK Brexit (Figure 29) ***


regress war2_f i.vignettesplit_new if lsuk==1&leave==1

estimates store leave

regress war2_f i.vignettesplit_new if lsuk==1&remain==0

estimates store remain

coefplot (leave, offset(0.05)) (remain, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (UK)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")



*** HE - US nationalism (figure 30)

** US1 **

regress war2_f i.vignettesplit_new if lsus==1&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if lsus==1&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Trump Presidency)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")


** US2 **

regress war2_f i.vignettesplit_new if lsus2==1&nationalist==1

estimates store nationalist

regress war2_f i.vignettesplit_new if lsus2==1&nationalist==0

estimates store nonnationalist

coefplot (nationalist, offset(0.05)) (nonnationalist, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Biden Presidency)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")



*** HE - US voting behavior (Figure 31) ***


** US1 **

regress war2_f i.vignettesplit_new if lsus==1&trump==1

estimates store trump_voters

regress war2_f i.vignettesplit_new if lsus==1&clinton==1

estimates store clinton_voters

coefplot (trump_voters, offset(0.05)) (clinton_voters, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Trump Presidency)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")


** US2 **

regress war2_f i.vignettesplit_new if lsus2==1&trump==1

estimates store trump_voters

regress war2_f i.vignettesplit_new if lsus2==1&biden==1

estimates store biden_voters

coefplot (trump_voters, offset(0.05)) (biden_voters, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Biden Presidency)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")



*** HE - US ideology (Figure 32) ***

regress war2_f i.vignettesplit_new if lsus==1&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if lsus==1&liberal==1

estimates store liberal

coefplot (conservative, offset(0.05)) (liberal, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Trump Presidency)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")


** US2 **

regress war2_f i.vignettesplit_new if lsus2==1&conservative==1

estimates store conservative

regress war2_f i.vignettesplit_new if lsus2==1&liberal==1

estimates store liberal

coefplot (conservative, offset(0.05)) (liberal, offset(-0.05)), nolabel drop(_cons) xline(0) title (Leader Statements (Biden Presidency)) xtitle (ATE) coeflabels(4.vignettesplit_new = "leader oppose prosecute" 5.vignettesplit_new = "leader support prosecute")




************** END ***************************
